1 A=0:B=0:R=0:GM=0:BM=0
2 INPUT"[147]HOW MUCH MEMORY ARE YOU SUPPOSED TO HAVE";SH
3 PRINTCHR$(147);
10 SYS2816
20 R=PEEK(2912)*64+64:IFR=64THENR=0
22 IFR<>SHTHENPRINT"[147]MEMORY AMOUNT DOESN'T MATCH!":BM=BM+1
23 IFR=SHTHENPRINT"[147]MEMORY AMOUNT MATCHES!":GM=GM+1
25 PRINT"GOOD MATCHES = ";GM;" BAD MATCHES = ";BM
30 PRINT"MEMORY =";R;"[157]K. ";
40 IFPEEK(3065)=187THENB=B+1:PRINT"BAD = ";B;" GOOD = ";A:R=0:GOTO10
50 A=A+1:PRINT"GOOD = ";A;" BAD = ";B:R=0:GOTO10